home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 51 / Mail_Madness_51_2003_Raiders_of_the_Lost_Empire_Side_B.d64 / BW klang-test WB (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  78 lines
  1. 0 rem save"@:[194]  klang-test  [194]",12
  2. 1 a(0)=0:fa(1)=11:fa(2)=12:fa(3)=15:fa(4)=10:fa(5)=1:fa(6)=10:fa(7)=15:fa(8)=12
  3. 2 fa(9)=11:da=0:re=25:poke53250,25:zf=0
  4. 3 lw=peek(186):as=0:fb=0:poke53280,0:poke53281,0
  5. 9 ifz=0thenprint"[144][147]";:z=1:goto20
  6. 10 ifz=1thenz=2:poke53265,27:gosub1000:goto90
  7. 12 ifz=2thenz=3:load"[194] 01.*",lw,1
  8. 13 ifz=3thenz=4:sys49152:goto400
  9. 14 ifz=4thensys828,1:goto400
  10. 15 sys828,2:goto400
  11. 20 poke53265,11:fora=49154to49317:readi:pokea,i:next
  12. 21 v=53248:poke2040,15:forn=0to62:readq:poke960+n,q:next
  13. 22 forn=0to62:readq:poke16320+n,q:next:pokev+2,25:pokev+3,0:poke2041,255
  14. 23 pokev+0,35:pokev+1,141:pokev+16,1:pokev+40,1
  15. 24 pokev+28,0:pokev+23,0:pokev+29,0
  16. 25 load"[194] 02.*",lw,1:rem bild
  17. 26 end
  18. 90 :
  19. 93 sys49154
  20. 94 load"[194] 03*",lw,1
  21. 95 end
  22. 200 :
  23. 201 data173,17,208,41,239,141,17,208,162,127,160,64,32,156,192,162
  24. 220 data4,160,0,32,161,192,162,131,160,39,32,114,192,162,131,160
  25. 240 data40,32,156,192,162,216,160,0,32,161,192,162,135,160,15,32
  26. 260 data114,192,173,16,135,141,33,208,173,17,208,9,34,141,17,208
  27. 280 data173,22,208,41,223,9,16,141,22,208,173,24,208,9,8,141
  28. 300 data24,208,162,96,160,0,32,156,192,162,32,160,0,32,161,192
  29. 320 data162,127,160,63,32,114,192,173,17,208,9,16,141,17,208,96
  30. 340 data142,1,192,140,0,192,160,0,177,251,145,253,165,252,205,1
  31. 360 data192,208,8,165,251,205,0,192,208,1,96,230,251,208,2,230
  32. 380 data252,230,253,208,227,230,254,76,122,192,134,252,132,251,96,134
  33. 390 data254,132,253,96
  34. 400 :
  35. 401 geta$:ifa$=""thengosub500:gosub600
  36. 410 ifa$=chr$(133)thenpokev+3,0:pokev+1,141:sys828,0:load"[194] 03.*",lw,1
  37. 411 ifa$=chr$(134)thenpokev+3,0:pokev+1,166:sys828,0:load"[194] 04.*",lw,1
  38. 413 ifa$=chr$(135)thenpokev+3,0:pokev+1,191:sys828,0:load"[194] 05.*",lw,1
  39. 414 ifa$=chr$(136)thenpokev+3,0:pokev+1,216:sys828,0:load"[194] 06.*",lw,1
  40. 415 ifa$=" "andas=0thenas=1:sys828,0:goto400
  41. 416 ifa$=" "andas=1thenas=0:sys828,1:goto400
  42. 417 ifa$="s"thenas=0:sys828,2
  43. 499 goto400
  44. 500 :
  45. 501 fb=fb+1:iffb>9thenfb=0
  46. 502 pokev+39,fa(fb):return
  47. 600 :
  48. 610 ifda<51thenpokev+3,da:da=da+1:return
  49. 615 ifre<90thenpokev+2,re:re=re+4:return
  50. 620 zf=zf+0.05:pokev+2,90+(68*sin(2*zf))
  51. 629 return
  52. 1000 print"[144][147]";:pokev+21,2:pokev+39,0
  53. 1001 print"              welle:erdball":pokev+2,175:pokev+3,75
  54. 1002 print"                klangtest"
  55. 1003 print"                [163][163][163][163][163][163][163][163][163]"
  56. 1004 print"[144]              dank & gruss:"
  57. 1005 print"airfish,angel,bugjam,countzero,courage,"
  58. 1006 print"decompracid,docbacardi,dr.future,exile,"
  59. 1007 print"eternalizer,finn,floyd,franky,galaktus,"
  60. 1008 print" groepaz,hoild,jesus,jtr,jsl,macgyver,"
  61. 1009 print"martin,mrmuseum,mystery,pixel23,poison,"
  62. 1010 print"roland,scorpe,sexton,streetuff,tomzet,"
  63. 1011 print"    vogue,womana,yogibear,zedjago      "
  64. 1012 print"  und alle anderen vision-besucher !";:poke53265,27
  65. 1040 forza=0to500:next:forza=0to399:poke55896+za,15:forzb=0to10:next:next
  66. 1041 forza=0to1500:next:poke53265,11:pokev+21,3:print"[144][147]";
  67. 1042 pokev+2,0:pokev+3,0:pokev+40,14:poke53265,27:return
  68. 50000 :
  69. 50001 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  70. 50002 data0,0,0,0,56,0,0,198,0,1,15,0,2,31,128,2
  71. 50003 data63,128,2,63,128,2,63,128,1,31,0,0,206,0,0,56
  72. 50004 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  73. 50005 :
  74. 50010 data0,255,0,3,255,192,7,128,224,13,128,48,25,128,24
  75. 50011 data25,131,24,49,135,140,49,135,140,49,207,140,49,223,140,49
  76. 50012 data251,140,49,241,140,49,225,140,24,193,152,24,1,152,12,1
  77. 50013 data176,7,1,224,3,255,192,0,255,0,0,0,0,0,0,0
  78.